﻿Public Class frmPagarPrestamo 

    Private Sub frmPagarPrestamo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)

    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        Me.SP_FiltrarPrestamosClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_FiltrarPrestamosCliente, Me.cboCliente.EditValue)
    End Sub

    Private Sub RealizarPagoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RealizarPagoToolStripMenuItem.Click
        Try
            Dim PagoRecibido As Double
            PagoRecibido = InputBox("Ingrese el monto pagado.", varTitulo, "0.00")


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class